home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Scene Storm
/
Scene Storm - Volume 1.iso
/
ami-express
/
t-u
/
tzz-wa10.lha
/
bbs
/
doors
/
tzz
/
wally
/
WallY.ReXX
< prev
Wrap
OS/2 REXX Batch file
|
1994-08-25
|
5KB
|
2 lines
/* Optimized with RexxOpt 1.4 */
PARSE ARG Node;OPTIONS RESULTS;ADDRESS VALUE 'AERexxControl'Node;call addlib('rexxsupport.library',0,-30,0);ERROR1=exists('doors:tZZ/wAllY/WaLLy.data');IF ERROR1='0' THEN DO;OPEN(TDATA,"bbs:doors/tzz/wally/wally.data",W);WRITELN(TDATA,'');WRITELN(TDATA,'
:
........................
:');WRITELN(TDATA,'
:
___________________________: _______________ :
:');WRITELN(TDATA,'
:
\ | /: \ / ..:...:
:');WRITELN(TDATA,'
:
\______ ____|_____ / : \_______ / :
:');WRITELN(TDATA,'
:
/ \ / / :········/ /·rED····:
:');WRITELN(TDATA,'
:
/ \ / /--/\...: / /--/\ :...:
:');WRITELN(TDATA,'
:
/ \ / \ :. / \
:');WRITELN(TDATA,'
:
/________\__/_____________\ /____________\
:');WRITELN(TDATA,'
:
\________/ \_____________/ \____________/
:');CLOSE(TDATA);END;RES='
';RED='
';GRN='
';YEL='
';BLU='
';MAG='
';CYN='
';BLUYEL='
';REDYEL='
';YELBLU='
';txt=transmit;sm=sendmessage;gc=getchar;ge=getuser;pr=putuser;pt=putustr;pt "-95";PR "526";txt BLU'H ___ ___ 'MAG'__ 'BLU' __ 'MAG' __ 'BLU'___ ___ 'MAG' ______ 'BLU' __ __ 'MAG' _______';txt BLU' \ \/\/ /'MAG'/ \ 'BLU'| | 'MAG'| | 'BLU'\ \/ / 'MAG'| |'BLU'| /\ |'MAG'| ____/';txt BLU' \ /\ /'MAG'/ -- \ 'BLU'| |\'MAG'| |\ 'BLU'\_ _/ 'MAG'!___ __|'BLU'| |'MAG'| _)';txt BLU'.---------\ /'MAG'/ \ 'BLU'| \'MAG' \ 'BLU'| | 'MAG' / \ 'BLU'| |'MAG'| \'BLU'-'CYN'rED'BLU'--------.';txt BLU'| \__/'MAG'/___\/___\'BLU'|_____\'MAG'____\'BLU'|__| 'MAG' /____\ 'BLU'|__\/__|'MAG'|____\ 'BLU' |';txt BLU'| |';txt BLU'!'CYN''CENTER('cODE=>'BLUYEL'tHE FUGITIVE/TzZ
'CYN'ART=>'BLUYEL'rED.R/tZZ',106,' ')BLU'!';txt BLU'!='COPIES('-',75)'=!';txt BLU'|'CYN'Loading Data...'BLU' |';call view;WALL:;txt BLU'A!=---------------------------------------------------------------------------=!';txt BLU'| |';txt BLU'!='COPIES('-',75)'=!';txt BLU'| 'CYN'_______ _______'BLU' ____ 'CYN' ____ 'BLU' ____ 'CYN'______ 'BLU'____ ____ |';txt BLU'| 'CYN'\ \ / /'BLU' / \ 'CYN'| | 'BLU' | | 'CYN'\ | 'BLU'\ \/ / |';txt BLU'! 'CYN'\\ \/\/ //'BLU' // -- \\ 'CYN'|| |/\ 'BLU' || |/\ 'CYN' \_ | 'BLU' \\ //'MAG'©1995'BLU' !';txt BLU'·----'CYN'\\ //'BLU' // \\ 'CYN'|| ! \ 'BLU' || ! \ 'CYN' || | _ 'BLU' // \\-'MAG'rED'BLU'-·';txt BLU' 'CYN'\____________/'BLU' /____\/____\ 'CYN'|_______\'BLU' |_______\ 'CYN' |__||_|'BLU'/___\/___\';SM BLU'A|'YEL' Wanna Write The Wall [y/N] >: 'GRN;GC;key=result;if key='Y' then do;TXT 'YEAH!';call JEPP;end;if key="N" then do;TXT 'Nah!';call NEPP;end;if key='y' then do;TXT 'YEAH!';call JEPP;end;if key="n" then do;TXT 'Nah!';call NEPP;end;call nepp;NEPP:;TXT 'B';SHUTDOWN;EXIT;HEPPI:;TXT 'B';SHUTDOWN;EXIT;JEPP:;TXT 'A
Wanna Write The Wall [Y/N] >: ';QUERY BLU'A|'CYN' TexT >: 'RED;DATA=RESULT;CALL COLOR;COLOR:;TXT BLU'A |';SM BLU'A| Chose CoLoR'MAG' [1]'CYN' [2]'RED' [3]'YEL' [4]'GRN' [5]'BLU' >:';GC;MENU=RESULT;IF MENU='1' THEN DO ;TXT MAG'You ChoseD MaGenTa!' ;CALL WRITE ;END;IF MENU='2' THEN DO ;TXT CYN'YoU ChOsEd CyAn!' ;CALL WRITE ;END;IF MENU='3' THEN DO ;TXT RED'YoU ChOsEd RED!' ;CALL WRITE ;END;IF MENU='4' THEN DO ;TXT YEL'YoU ChOsEd YELLOW!' ;CALL WRITE ;END;IF MENU='5' THEN DO ;TXT GRN'YoU ChOsEd GREEN!' ;CALL WRITE ;END;TXT '';CALL COLOR;WRITE:;If Menu='1' THEN DO ;COL=MAG ;end;If Menu='2' THEN DO ;COL=CYN ;end;If Menu='3' THEN DO ;COL=RED ;end;If Menu='4' THEN DO ;COL=YEL ;end;If Menu='5' THEN DO ;COL=GRN ;end;OPEN(TDATA,"bbs:doors/tzz/wally/wally.data",APPEND);LDATA=BLU':'CENTER(COL''DATA,'82')BLU':';WRITELN(TDATA,LDATA);call HEPPI;VIEW:;Q=0;X=0;Open(.IFile,'bbs:doors/tzz/wally/wally.data','R')then do;do until EOF(.IFile);XX=READLN(.IFile);Q=Q+1;end;Y=Q-'10';Z=0;A=X;Open(File,'bbs:doors/tzz/wally/wally.data','R')then do;do until Z=Y;ZZ=READLN(File);Z=Z+'1';end;TXT CYN'A
|Loading Data... |A'BLU;do until EOF(FILE);AA=READLN(File);A=A+'1';TXT AA;end;CALL WALL
